COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE ∪↔	To list items into n columns on a page (skip 1 less than no. rows)
C00003 ENDMK
C⊗;
αXDEFINE ∪⊗↔⊗;	To list items into n columns on a page (skip 1 less than no. rows)
⊗; n is 3 in this case and there are 11 rows
αβA⊗;		Pick up the first item
αβ1αβ0⊗↔αβ+αβcαβ1αβ0⊗↔αβ+αβc⊗; Skip 10 and C, 2 times
αβ1αβ0⊗↔⊗→αβe⊗;	Skip 10 <form> and deposit
α⊗=⊗⊗αdα⊗=⊗⊗αd⊗; Collect 2 items separated by ⊗
α⊗=\cr⊗↔⊗; Go to the end, add \cr and do a <cr>
αl⊗;   return to top of list
αβ⊗↓⊗; exit